#include "algoc.h"

INTEIRO FATORIAL(INTEIRO NUM)
INICIO
	SE(NUM == 0) ENTAO
		 RETORNA(1);
	SENAO
		RETORNA(NUM*FATORIAL(NUM-1));
FIM

ALGORITMO_PRINCIPAL
INICIO
	INTEIRO I;

	ESCREVER "DIGITE UM NUMERO INTEIRO: ";
    LER I;
	ESCREVER NOVA_LINHA;
	ESCREVER "O FATORIAL DE ";
	ESCREVER I; 
	ESCREVER " Eh ";
	ESCREVER FATORIAL(I);
	ESCREVER NOVA_LINHA;
 system("PAUSE");
FIM
